home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 2 (1981)(Micro Ink).zip / Micro on the Apple Volume 2 (1981)(Micro Ink).do / COLOR GUN.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  70 lines
  1. 1  REM  ************************
  2. 2  REM  *                      *
  3. 3  REM  *      COLOR GUN       *
  4. 4  REM  *     NEIL LIPSON      *
  5. 5  REM  *                      *
  6. 6  REM  *  COPYRIGHT (C) 1981  *
  7. 7  REM  *    MICRO INK, INC.   *
  8. 8  REM  * CHELMSFORD, MA 01824 *
  9. 9  REM  *  ALL RIGHTS RESERVED *
  10. 10  REM *                      *
  11. 11  REM ************************
  12. 12  REM 
  13. 13  REM 
  14. 14  REM 
  15. 15  CALL  -936: VTAB 10: HTAB 10: PRINT "COLOR GUN BY NEIL D. LIPSON": FOR I = 1 TO 2000: NEXT I
  16. 16  REM 
  17. 17  REM  YELLOW-2
  18. 18  REM  BLUE  -1
  19. 19  REM  RED   -0
  20. 20  REM 
  21. 22  CALL  -936: PRINT : PRINT : PRINT : PRINT 
  22. 25  GOSUB 1000
  23. 30  CALL  -936: PRINT : PRINT 
  24. 32 A =  PDL(0)
  25. 35  REM 
  26. 40 B =  PDL(1)
  27. 45  REM 
  28. 50 C =  PDL(2)
  29. 55  REM 
  30. 60 A = A *A1
  31. 61 B = B *B1
  32. 62 C = C *C1
  33. 70 B = B/1.5
  34. 100  PRINT "RED CELL=";A
  35. 110  PRINT "BLUE CELL=";B
  36. 115  PRINT "YELLOW CELL=";C
  37. 116  PRINT : PRINT 
  38. 117  PRINT "THE COLOR IS:": PRINT 
  39. 118  PRINT "*********************"
  40. 121  IF C <B  AND C <(A)  THEN  PRINT "YELLOW"
  41. 123  IF A <B  AND A <C  THEN  PRINT "RED"
  42. 124  IF A >B  AND A >C  THEN  PRINT "GREEN"
  43. 125  IF B >A  AND B >C  THEN  PRINT "OR<CTRL-A>ANGE"
  44. 126  IF C <AC >B  THEN  PRINT "PURPLE"
  45. 129  IF B <C  AND B <(A)  THEN  PRINT "BLUE"
  46. 130  PRINT "*********************"
  47. 131  FOR X = 1 TO 2300: NEXT X
  48. 140  GOTO 30
  49. 200  END 
  50. 1000  CALL  -936: PRINT 
  51. 1010  PRINT "POINT GUN AT A WHITE SHEET OF PAPER"
  52. 1020  FOR I = 1 TO 1500: NEXT I
  53. 1030 A1 =  PDL(0)
  54. 1035  REM 
  55. 1040 B1 =  PDL(1)
  56. 1045  REM 
  57. 1050 C1 =  PDL(2)
  58. 1055  PRINT "A1=";A1
  59. 1056  PRINT "B1=";B1
  60. 1057  PRINT "C1=";C1
  61. 1060 D1 = A1 *B1 *C1
  62. 1070 A1 = D1/A1
  63. 1080 B1 = D1/B1
  64. 1090 C1 = D1/C1
  65. 1100  PRINT "CORRECTION FACTOR FOR RED = ";A1
  66. 1110  PRINT "CORRECTION FACTOR FOR BLUE = ";B1
  67. 1120  PRINT "CORRECTION FACTOR FOR YELLOW = ";C1
  68. 1125  FOR I = 1 TO 2000: NEXT I
  69. 1130  RETURN 
  70. 10000  END